home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / MorphOS / Epic4_mos / share / epic / script / dns < prev    next >
Encoding:
Text File  |  2002-10-28  |  732 b   |  30 lines
  1. #
  2. # dns.irc - translates ip->host, host->ip or nick->ip, nick->host.
  3. # 
  4. # quick hack by SrfRoG (srfrog@mistik.net)
  5. #
  6.  
  7. alias dns.result (adr) {
  8.         @ :res = convert($adr)
  9.         echo *** $adr is ${res?res:[Unknown]}
  10. }
  11.  
  12. alias dns {
  13.         if (@) {
  14.                 ^local who $0
  15.                 if (match(*.* $who)) {
  16.                         dns.result $who
  17.                 }{
  18.                         userhost $who -cmd if ([$3]!=[<UNKNOWN>]) {
  19.                                 dns.result $4
  20.                         }{
  21.                                 echo *** $who\: nick not found.
  22.                         }
  23.                 }
  24.         }{
  25.                 echo *** usage: /dns < nick | [host | ip address] >
  26.         }
  27. }
  28.  
  29. #srfrog'99
  30.